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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Language independent support Library 
ABSTRACT: 


OTSSCVT_TI_L converts a text representation of a decimal value to 
an internal binary form. It replaces FORSCNV_IN_I. 


OTSSCVT_TU_L converts a text representation of an unsigned decimal value 
to internal binary form. 
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43 VERSION: 1 

& HISTORY: 

44 

45 AUTHOR: 

$8 Steven B. Lionel, 21-Feb-1979: Version 1 
$8 MODIFIED BY: 
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-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 of OTSSCVT_TI_L 


s a Added v SiiPrABe38L. ri. versign. 1-009. SBL 21-Feb-79 
1- - Ff n over 4 a Hy SL 12-July=-1979 
1- . ata vskIP 


1- int 4 les Add standard module head 
Rennes ce pping. module headers. 


1- o correct thing if value_size is jncecre t. SBL 25-Feb-1980 
1-803 = ee do serett * ng iY va value. si , 
1-008 - 3 Give oe Mt ch or — va Raat + = 127 found. 
R 11- 88s SBL 35-5 Deg! slug 
1-009 - had brseeve TULL. SBL 27-Apr-1983 


Set (LOGPECE?at® ESTP RI Story “ECRESISES QREREEEE WMIAUME.SRESBL4RCGORL nansn "°° 


o conform with floating. SBL 36-Aug-1979 


e size. ncorrect. Previous code 
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onvert text (integer) to Lonoword 


: 16~SEP=1 
BECLARATIONS g- SEP: 13be 90: $332 tient L.$ 
- -SBTTL DECLARATIONS 
; INCLUDE FILES: 
5 e 
$ $ EXTERNAL SYMBOLS: 
; -DSABL GBL 
“EXTRN OTs. INPCONERR 
MACROS: 
 PSECT DECLARATIONS: 
0000 3 .PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT 


; EQUATED SYMBOLS: 


REGH ASK = “M<R2, R3, R4, RS, R6> 
_NEGATIVE = 31 3{th bit position 
09 “UNSIGNED = 30 : indicates POTSSCVT 
: OWN STORAGE : 


WO OONAULS WO OONOAUS UNO 


SDOOOO0O00000000 0000000090000 00000000 I~ 


rx 


ooo 
ooo 
ooo 
wb AHS at 
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TULL g reg 


N 
TSSCVTT 
es ie brSSCVET FUSE’: convert text loners, SSE 1986 Fi58:28 EMORTE.SReSrSCu Tee mans1 29% chy 


-SBTTL OTSSCVT_TU_L 3; convert text (unsigned) to longword 


oa 
a 


FUNCTIONAL DESCRIPTION: 


OTSSCVT_TU , converts an ASCII ete ine containing a text 
representation of an unsigned decimal number to internal binary form. 


The text Boy arenas Ip. converted is: 
more $> 

<O or more ASCII digits from ‘'0’’ through ‘'9’'’> 
<end of string> 


1. If att od gat, Liens is clear, then spaces are 
equi valen spaces are ignored. 

2. If caller flag V_SKIPTABS “4. clear, then tab characters 

are illegal. If set, tabs are ignored. 
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0 
op 
09 CALLING SEQUENCE: 
00 status.wlc.v = OTSSCVT_TU_LL (in_str.rt.dx, value.wx.r 
09 , value_size.rl.v C, caller_flags.rlu.vJJ) 
09 INPUT PARAMETERS: 
00000004 instr =4 5 in ut string by descriptor 
0000000C 09 vatue_size = 12 : gize : © of value in byt sig 
3; Must be 
0000001 00 caller flags = 16 ; Caller tLigs, Es 
0000000 0 V_SKIPBLAN S = 0 3; If set, blanks ore 4 ered. 
3; Else they are treated as 
3 zeroes. 
00000004 0 V_SKIPTABS = 4 ; If set, tabs are ignored. 
444 ; 3; Else they are invalid. 
000 3 IMPLICIT INPUTS: 
; NONE 
: OUTPUT PARAMETERS: 
00000008 ; value =8 : Output value by reference 


: IMPLICIT OUTPUTS: 
; NONE 
> COMPLETION CODES: 


SS$_NORMAL - Successful completion 

OTSS_INPCONERR - There was a invalid character in the input 

string. value quert ie owed the range a lowed. 

or va ay - ze was inval The result ‘value’ is 
set to zero, unless new beg “size is invalid, in which 


a ct ce a eB em Bt ed a etd = wb tt 4 A ds tt tt it 
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OTSSCVTTIL ceaver 
1 bts$ 


B 10 
t text (integer) to longword 16-SEP-1984 00:29:53 
T.TULL ; convert text (unsigned) t 6-SEP-1984 11:13:46 


case ‘‘value’’ is unpredictable. 


163 ; 

1646 ; 

166 ; SIDE EFFECTS: 
167 : NONE 
188 

i$ : 

17 sENTRY 
5 SBCs 

8 17% 


OTSSCVT_TU_L, REGMASK 
#V_UNSIGNED, R6, COMMON_ intaves 


AX/VMS Macro v04-00 Page 
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r flags ma 
; Set ONS TENED and join common code 


5 
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-SBTTL OTSSCVT_TI_L ; convert text (integer) to longword 
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; FUNCTIONAL DESCRIPTION: 


OTSSCVT_TI converts an ASCII string rs a text 
representation of a decimal number to internal binary form. 


This routine supports FORTRAN I input format conversion as well 
as similar types for other Languages. 


The text representation converted is: 
<0 or more blanks> 
<4", "=" or nothing> 
<0 or more ASCII digits from ‘'0"’ through ‘'9'’> 
<end of string> 


= 


Notes: 
1. If caller flag V SKIPBLANKS is clear, then spaces are 
equivalent to "0". If set, spaces are ignored. 
2. If caller flag V_SKIPTABS is clear, then tab characters 
are illegal. If set, tabs are ignored. 


CALLING SEQUENCE: 


status.wlc.v = OTSSCVT_TI_LL (in str.rt.dx, value.wx.r 
, value_Size.rl.v C, caller_flags.rlu.vJ)) 


OOO 00000 000000000 09 09 090900098 III 


INPUT PARAMETERS: 


00000004 
0000000C 


00000010 
90000000 


00000004 


in_str 


= 4 Input string by descriptor 
value_size = 12 : : tn 4 


Size of value bytes 
Must be 1, 2 or 4. 
Caller flags by value 

set, blanks are ignored. 
Else they are treated as 
zeroes. 
If set, tabs are ignored. 
Else they are invalid. 


caller_flags = 16 
V_SKIPBLANKS = 0 


" 
= 


V_SKIPTABS 


OOOOCOCCOCOCSOOOSSCOSOSOSOOOOOOOSOOOOOOoOO 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
value = 8 ; Output value by reference 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


$S$_NORMAL - Successful completion 
OTSS_INPCONERR = There was an invalid character in the input 
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TSSCVTTIL rt text (integer) to oA 16-SEP-1984 00: + AX/VMS Macro v04 P 
1.885 r§ CVE hit ; convert text tin eger) to sesige 99: 93:2 4 LIBRTL. SREJOTSCVT A. MAR; 1 wit 


3 3 string. ¢ value overf ques the range allowed, 
4; or va Ay ze was invalid. The pees attowed 
2 3 set to 28ro, unless value_size is invalid. in which 
§ ; case ‘‘value’’ is unpred ttable. 
: 3 SIDE EFFECTS: 
40 : NONE 
41 ; 
r ;-- 
44 FORSCNV_IN_I:: 3; For compatibilit 
007¢ 9008 ‘3 “TERTRY OTSSCVT_TI_L, REGMASK , . 
56 04 A “3 CLAL R6 ; clear flags 
C rt COMMON_ENTRY 
50 04 68C 7D 4 ova @in_str(AP), RO ; RO = width of the input string 
1 50 ; R1 = address of the input string 
54 7¢ 1 51 CLRQ RG 3; R4/RS = ACC = 0 
04 gf 4 ! 26 ys (AP), #<caller_flags/4> ; Optional argument present? 
56 10 AC 90 0017 2¢ MOVB caller_flags(AP), R6 : Yes, move it 
ae 
St 38: Find the first non-blank character. Process the sign, if present, 
st 2p i. ; and if we are not doing unsigned conversion. 
18 (561° 
61 50 20 38 0018 $6 5$: SKPC #*A/ /, RO, (R1) : skip blanks 
O1F 6 ; RO = #CHAR_REMAI G 
O1F 264 ; R1 = POINTER_1Q_ INPUT 
DIF 65 3; Z bit is set if RO = 0 
61 13 OTF 08 BEQL DONE 3; branch to DONE if no non-blank 
0B 56 3804 3 021 BBC #V weet R6, 7$ : Ignoring tabs? 
09 = 61 1 5 68 CMPB (RT), x09" : Yes, is it a tab? 
96 12 8 9 BNEQ 7$ : If not, continue 
1 be A 0 INCL R1 3; Bump pointer 
50 OD C 71 DECL RO : Decrenent _ Seuntor 
—€B 11 F 7 BRB 5$ Look for 
1256 JE £0 73 78: BBS. AV UNSIGNED, R6, DIGIT _tboP’; If unsigned, askin sian test 
2D «(61 1 4 74 CMPB (RT), #*A/ : is the current gh ar sign? 
04 ig 7 75 BNEQ 10$ no, branch to 1 
05 56—CsésST#F E 9 7 BBCS #V_NEGATIVE, R6, DECIMAL 
4 f ; set negative flag and continue 
28 4 91 79 10$: CMPB (R1), M*A/+/ ; is current char a ‘'+’’s sign} 
12 9 BNEQ DIGIT_LOOP : no, branch to shock #4 40 16 6 digit 
3¢ 
$ 3; skip over ‘'-"’ or ‘+’ sign 
5 e 
§ DECIMAL: 
29 D7 DECL RO ; RO = #CHAR_REMAINING 
1 06 8 INCL R1 ; RI = POINTER_ TO_INPUT 
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; Loop to collect digits, treat blanks as zeroes, until the string is exhausted 
: then branch to DON 
DIGIT_LOOP: 
DECL RO ; RO = #CHAR_REMAINING 
BLSS DONE ; branch to BONE if the string is exhausted 


:* 
; Get next character, converting blanks into zeroes unless V_SKIPBLANKS set. 


MOVZBL php R3 ; get current char and odjust POINTER_TO_INP 
CMPB was / ; compare char with blan 
BEQL ‘ in os tety L nore or ay to 0 
BBC fy Sk SKIPTABS, R6, CHECK vic : : ignoring tabs? 
CMPB R “x09 H 
BEQL 0 ; ory ignore it 
BRB CHECK-DIGIT Continue 
10$: BBS ay TSRTPELAMKS.. R6, DIGIT’ * LOOP ; ignore if V_SKIPBLANKS set 
MOVL ~ R3 3; convert blank into Zero 


:* 
: Check if current char is a legal digit, accumulate it in ACC if yes and 
: then branch to DIGIT "LOOP maf no overflow. Otherwise fall into ERROR. 


CHECK_DIGIT: 
SUBL #*A/0/, R3 ; R3 = ASCII (current_char) = ASCI1<''0"') 
BLSS ERROR Error if less than ‘'0’ 
CMPL R3 Is it greater eo "9°"? 
BGTR If so, error 


#10 = radix 

R4 = LPC(ACC) pcheedy LP(ACC) will be used in 
since RS (=HP< ) must be zero 

R3 = current d jgit 

R4/R5 = ° C=A §. * radix + current_digit 
compare with singe a@ non-zero value 
in acAce) meand overflow 

if no overflow branch back to get more 
character. Otherwise fall into ERROR 


ERROR 
EMUL #10, R4, R3, R4 


TSTL RS 
BEQL  DIGIT_LOOP 


AIAOROROPOPENOPONINND 2 — 9 2 BQ QOD OOOOOO 0000000000 
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3 3+ 
¢ ; ERROR return 


$ ERROR: MOVL #OTSS_INPCONERR, RO ; RO = error return code 
C RG zero result 


o 
= 
i 

. 


50 wore” b9 
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3+ 
; Come here when value_size is incorrect. 


BADSIZE: 
nove #OTS$_INPCONERR, RO ; Input conversion error 


BDNQOOONOOOOANAO x 
NNO HHH Hh > COMM S COO 


50 00000000'8F 00 
04 


1 11 Z BRB EXIT exit with zero and error 
41 ; 
42 ; DONE 
tz? 
0 1 00 45 DONE: MOVL #1, RO 3; return function value of SS$_NORMAL 
1 5e i E1 +8 BBC OY ae oa TINE R6, 108 ; branch if_‘'=" court seen —~ 
80000008 F 654 p 4 CMPL R4-#*x80000600 : is it 2ee 
11 48 BEQL =s«éEXI'T : yes, already correct! 
54 OD 4 TSTL RG 3; test for overflow 
5 0 BLSS ERROR : if already negative, overflow 
54 4 cf MNEGL R4, RG 3 answer is -R4 
Ss. 3 BRB Exit : Store result 
04 56 «OE 3 10$: BBS #V_UNSIGNED, R6, EXIT ; Skip overflow test if unsigned 
54 OD 4 TSTL RS : Overflow? 
D4 «19 3? BLSS ERROR 3; If negative, yes 
03 $6 91 § EXIT CMPB (AP), #<value_size/4> ; Is arg present? 
19 5 BLSS 4 3; If not, assume longyord 
52 OC AC 09 38 MOVL value_size(AP), R2 : Get value size in R2 
1 1 BEQL 40$ : If zero, assume 4 
06 «65 D1 60 CMPL R2, #4 ; Is it a longword? 
17 «13 61 BEQL 46-408 : Yes 
02 52 O01 66 CMPL Re #2 3; Word? 
0A 13 6 BEQL § : Yes 
15 1A 64 BGTRU BADSIZE ; Byte if LSS, bad otherwise 
08 BC 54 F6 65 CVTILB R4, a@value(AP) ; Convert byte 
7 1D 66 BVS RROR : Overflow? 
i ce 6 BRB $ 3; No, exit 
08 BC 4 F7 68 20$ CVTLW R4, @value(AP) 3; Convert to word 
AF 1D § BVS ERROR : Overflow? 
o% 11 BRE 0$ 3; No, ex 
08 BC 4 0° 7 $08: MOVL R4, @value(AP) 3; Move longword 
4 50$: RET 
7 
7 
7 
7 
7 
; 


MO OCONOULS WN —"O0e 


G6 10 
; Convert text (integer) to longword i a P-1984 90:6 +t 


SEP=1984 


oO 
= 


RPYe- 
on 
DBDDBDBDBDDBDBwD wD 


Ber Sauaas 
sss pear Sone ee Serer Serer ers 


SRR 


<<<<<< 2000 Mmm 
nanunnnnn 


bower ren ere eee eceee + 


! Psect synopsis ! 


pose moa moms am anon $ 


PSECT No. 


PSECT name 


ABS o 
“OTSS$CODE 


Attributes 


g-} 00 ¢ 0.) NOPIC USR CON ABS L 
215.) O1¢ 1.) PIC USR CON REL L 


tema awmesren sonar wa ananaeaans 


! Performance indicators ! 


¢ewmoeawerenccroaaommmcmneat 


CPU Time 


Allocation 


000000 ( CL 
200000D? ( CL 


Elapsed Time 


Page faults 
Initialization 
Command processing 
ass 


P 
Symbol table sort 
P 2 


ass 
Syabol table output ‘ 
Psect synopsis output :00: :00:00. 
Cross-reference output :00: :00:00. 
Assembler run totals :00: :00:10. 


{he working set Limit was 1050 pages. 
5207 bytes (11 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space ot loca ed to hold 21 non-local and 
source lines were read in Pass 1, produc ng 4 object records in Pass 2. 
pages of virtual memory were used to define 0 macros. 


local symbols. 
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NOSHR NOEXE NO 
SHR = EXE 


ro_V04-00 
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ro 


RD NOWRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


CLES" Hlko nun statistice 7 OArE text (iateger) to Lonqord) — TESEECISEY ORSER:ES UAKAYNS NRECELLONCHD, age 1 P20% Uf 
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! Macro Library statistics ! 


Foe aeoseceseaswenacosaneaeeen ame 


Macro Library name Macros defined 
-8255$DUA28: CSYSLIBISTARLET.MLB; 2 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESS1ION/D1SABLE=(GLOBAL , TRACEBACK) /LIS=LISS$S:OTSCVTTIL/OBJ=OBJ$:OTSCVTTIL MSRCS:OTSCVTTIL/UPDATE=(ENH$:OTSCVTTIL) 
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